home *** CD-ROM | disk | FTP | other *** search
/ Aminet 13 / Aminet 13 - August 1996.iso / Aminet / mus / edit / sfx_bin40m.lha / sfx-bin / _rexx / Differenciate.rexx next >
OS/2 REXX Batch file  |  1995-11-04  |  744b  |  48 lines
  1. /* SFX Differenciate */
  2.  
  3. OPTIONS RESULTS
  4.  
  5. ADDRESS REXX_SFX
  6.  
  7. GetActiveBuffer
  8. buf1=RESULT
  9.  
  10. IF buf1<9999 THEN DO
  11.     GetSampleLength buf1
  12.     slen=RESULT
  13.     GetSampleRate buf1
  14.     srat=RESULT
  15.  
  16.     NewBuffer slen srat 1
  17.     buf2=RESULT
  18.  
  19.     SAY "generating ..."
  20.  
  21.     oldval=0
  22.     DO pos=0 to slen
  23.         GetSampleValue buf1 0 pos
  24.         newval=RESULT
  25.         dif=oldval-newval
  26.         PutSampleValue buf2 0 pos dif
  27.         oldval=newval
  28.     END
  29.  
  30.     SAY "ready"
  31. END
  32. ActivateSFX                                                /* fertig */
  33.  
  34. EXIT
  35.  
  36. AppError:PROCEDURE
  37.     cmd=arg(1)
  38.     ret=arg(2)
  39.     SAY 'Application Error';say
  40.     SAY 'Command 'cmd' failed with Returncode 'ret
  41.     SELECT
  42.         WHEN ret='1' THEN SAY '    => unknown command'
  43.         WHEN ret='2' THEN SAY '    => unknown parameter'
  44.         OTHERWISE SAY '    => unknown returncode'
  45.     END
  46.     SAY
  47. RETURN
  48.